home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 2
/
Gold Medal Software Volume 2 (Gold Medal) (1994).iso
/
educate
/
algtut.arj
/
TSUBS.ASM
< prev
Wrap
Assembly Source File
|
1985-06-09
|
663b
|
46 lines
code segment 'code'
assume cs:code
public date,time
date proc far
push bp
mov bp,sp
mov ah,2ah
int 21h
les bx,dword ptr[bp+14]
mov es:[bx],cx
mov ah,0
mov al,dh
les bx,dword ptr[bp+10]
mov es:[bx],ax
les bx,dword ptr[bp+6]
mov al,dl
mov es:[bx],ax
mov sp,bp
pop bp
ret
date endp
time proc far
push bp
mov bp,sp
mov ah,2ch
int 21h
les bx,dword ptr[bp+18]
mov ah,0
mov al,ch
mov es:[bx],ax
les bx,dword ptr[bp+14]
mov al,cl
mov es:[bx],ax
mov al,dh
les bx,dword ptr[bp+10]
mov es:[bx],ax
mov al,dl
les bx,dword ptr[bp+6]
mov es:[bx],ax
mov sp,bp
pop bp
ret
time endp
code ends
end